home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -color displays (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.9 KB  |  54 lines
  1. 1 remabc,cab,bca
  2. 5 print"[147][142]"
  3. 10 fora=12288to12288+79:readb:pokea,b:next:h=8*32+12288:fora=htoh+7:pokea,0:next
  4. 11 poke53281,0:poke53280,12
  5. 12 print"[147]1 = red":print"[150][129]2 = orange":print"[158]3 = yellow":print"4 = green"
  6. 13 print"[154]5 = blue":print"[156]6 = purple"
  7. 14 print"[149]7 = brown":print"[152]8 = gray":print"which color?"
  8. 15 geta$:ifa$<"1"ora$>"8"then15
  9. 16 a=val(a$)
  10. 17 ifa=1thenpoke53283,8:poke53282,10:print"[150]":goto28
  11. 18 ifa=2thenpoke53283,8:poke53282,10:print"[155]":goto28
  12. 19 ifa=3thenpoke53283,1:poke53282,10:print"[155]":goto28
  13. 20 ifa=4thenpoke53283,13:poke53282,3:print"[153]":goto28
  14. 21 ifa=5thenpoke53283,14:poke53282,3:print"[154]":goto28
  15. 22 ifa=6thenpoke53283,2:poke53282,10:print"[152]":goto28
  16. 23 ifa=7thenpoke53283,8:poke53282,9:print"[150]":goto28
  17. 24 ifa=8thenpoke53283,12:poke53282,15:print"[149]":goto28
  18. 27 end
  19. 28 poke53272,29:poke53270,216
  20. 30 print"[147]":fora=1to11:print"abcabcabcabcabcabcabcabcabcabcabcabcabca";
  21. 40 print"fedfedfedfedfedfedfedfedfedfedfedfedfedf";:next
  22. 50 print"abcabcabcabcabcabcabcabcabcabcabcabcabca";
  23. 60 geta$:ifa$<>" "then60
  24. 70 print"[147]":fora=1to23:print"cbacbacbacbacbacbacbacbacbacbacbacbacbac";:next
  25. 80 geta$:ifa$<>" "then80
  26. 95 print"[147]"
  27. 100 fora=1to7
  28. 110 print"abcabcabcabcabcabcabcabcabcabcabcabcabca";
  29. 120 print"cabcabcabcabcabcabcabcabcabcabcabcabcabc";
  30. 130 print"bcabcabcabcabcabcabcabcabcabcabcabcabcab";
  31. 140 next
  32. 145 print"abcabcabcabcabcabcabcabcabcabcabcabcabca";
  33. 147 print"cabcabcabcabcabcabcabcabcabcabcabcabcabc";
  34. 150 geta$:ifa$<>" "then150
  35. 160 print"[147]":fora=1to23:print"defdefdefdefdefdefdefdefdefdefdefdefdefd";:next
  36. 170 geta$:ifa$<>" "then170
  37. 180 print"[147]":fora=1to23:print"@fed@fed@fed@fed@fed@fed@fed@fed@fed@fed";:next
  38. 190 geta$:ifa$<>" "then190
  39. 200 print"[147]":fora=1to10:print"g@@@fedfedg@@@fedfedg@@@fedfedg@@@fedfed";:next
  40. 210 fora=1to13:print"    abcabc    abcabc    abcabc    abcabc";:next
  41. 215 geta$:ifa$<>" "then215
  42. 220 poke53270,200:poke53272,21:goto12
  43. 1215 geta$:ifa$<>" "then215
  44. 3000 data255,255,85,85,85,170,170,170
  45. 3010 data165,165,165,165,165,165,165,165
  46. 3020 data250,250,250,250,250,250,250,250
  47. 3030 data95,95,95,95,95,95,95,95
  48. 3040 data95,151,165,165,233,234,250,190
  49. 3060 data250,126,95,95,151,149,165,233
  50. 3070 data165,233,250,250,126,127,95,151
  51. 3080 data40,40,40,40,40,40,40,40
  52. 3090 data250,126,95,95,151,149,165,233
  53. 3100 data165,233,250,250,126,127,95,151
  54.